home *** CD-ROM | disk | FTP | other *** search
/ Giga Games 1 / Giga Games.iso / net / d_d / stanford / charshts / seabrook / macros / stats < prev    next >
Encoding:
Text File  |  1993-06-22  |  2.8 KB  |  97 lines
  1. #    charsheet:stats    1.12
  2. #
  3. #    Copyright 1991, Chris Seabrook
  4. #
  5. #    This work may be freely used. modified and distributed for non-commercial
  6. #    purposes so long as it retains this notice.
  7. #
  8. # stats(Str, Int, Wis, Dex, Con, Cha)
  9. # stats1(AC, HP, Reaction, Doors, Bars, Handed, Sex)
  10. # stats2(Spell, Weapons, Non-Weapons, Age, Birthday, Next Change, Height, Weight)
  11. .PS
  12. define statsentry X
  13.     box wid sheetwid/13 "$2"
  14.     box invis wid sheetwid/13 ht boxht/2 "\f(HB\s-2$1\s0\fP" with .sw at last box.nw
  15.     box invis wid sheetwid/13 with .sw at 2nd last box.se
  16. X
  17. define detailentry X
  18.     box wid 8*sheetwid/100 with .sw at last box.se
  19.     box invis wid 8*sheetwid/100 ht boxht "\f(HB\s-2$1\s0\fP" \
  20.         "\f(HB\s-2$2\s0\fP" with .sw at last box.nw
  21.     box invis wid 4*sheetwid/100 with .sw at 2nd last box.se
  22. X
  23. define stats1 X
  24.     [
  25.         box invis wid 4*sheetwid/100
  26.         box invis wid 8*sheetwid/100 "$1"
  27.         box invis wid 4*sheetwid/100
  28.         box invis wid 8*sheetwid/100 "$2"
  29.         box invis wid 4*sheetwid/100
  30.         box invis wid 8*sheetwid/100 "$3"
  31.         box invis wid 4*sheetwid/100
  32.         box invis wid 8*sheetwid/100 "$4"
  33.         box invis wid 4*sheetwid/100
  34.         box invis wid 8*sheetwid/100 "$5%"
  35.         box invis wid 4*sheetwid/100
  36.         box invis wid 8*sheetwid/100 "$6"
  37.         box invis wid 4*sheetwid/100
  38.         box invis wid 8*sheetwid/100 "$7"
  39.     ] with .sw at Stats.sw + (0,2*boxht+border)
  40. X
  41. define stats2 X
  42.     [
  43.         box invis wid 4*sheetwid/100
  44.         box invis wid 8*sheetwid/100 "$1"
  45.         box invis wid 4*sheetwid/100
  46.         box invis wid 8*sheetwid/100 "$2"
  47.         box invis wid 4*sheetwid/100
  48.         box invis wid 8*sheetwid/100 "$3"
  49.         box invis wid 4*sheetwid/100
  50.         box invis wid 8*sheetwid/100 "$4"
  51.         box invis wid 4*sheetwid/100
  52.         box invis wid 8*sheetwid/100 "$5"
  53.         box invis wid 4*sheetwid/100
  54.         box invis wid 8*sheetwid/100 "$6"
  55.         box invis wid 4*sheetwid/100
  56.         box invis wid 8*sheetwid/100 "$7"
  57.         box invis wid 4*sheetwid/100
  58.         box invis wid 8*sheetwid/100 "$8#"
  59.     ] with .sw at Stats.sw
  60. X
  61. define stats X
  62.     strength=$1
  63.     Stats: [
  64.     box invis wid sheetwid/13
  65.     if $1 == 0 then Y
  66.         statsentry(Strength,)
  67.     Y else Y
  68.         statsentry(Strength, $1)
  69.     Y
  70.     statsentry(Intelligence, $2)
  71.     statsentry(Wisdom, $3)
  72.     statsentry(Dexterity, $4)
  73.     statsentry(Constitution, $5)
  74.     statsentry(Charisma, $6)
  75.     box invis wid 4*sheetwid/100 ht with .nw at 1st box.sw - (0,2*boxht+border)
  76.     detailentry(Armour,Class)
  77.     detailentry(Hit,Points)
  78.     detailentry(Reaction,Bonus)
  79.     detailentry(Open,Doors)
  80.     detailentry(Bend,Bars)
  81.     detailentry(,Handedness )
  82.     detailentry(,Sex)
  83.     detailentry(,)
  84.     box invis wid 4*sheetwid/100 ht with .nw at 25th last box.sw - (0,2*boxht+border)
  85.     detailentry(Spell,Points)
  86.     detailentry(Weapon,Proficiencies)
  87.     detailentry(Non-Weapon,Proficiencies)
  88.     detailentry(,Age)
  89.     detailentry(,Birthday)
  90.     detailentry(Next Age-,Bracket Change)
  91.     detailentry(,Height)
  92.     detailentry(,Weight)
  93.     ] with .n at last box.s + 0,-1*border
  94.     box ht last [].ht+border wid last [].wid+border at last []
  95. X
  96. .PE
  97.